(make-lucid-menu-keymap): Allow multiple identical inactive strings.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index d06b4d56feecadc15aa1e16802d28a9897044b67..55cef190538394c04b739cb469afb7796dd30d19 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -79,8 +79,12 @@
               (if (symbolp callback)
                   (fset command callback)
                 (fset command (list 'lambda () '(interactive) callback)))))
-       (if name 
-           (define-key menu (vector (intern name)) (cons name command))))
+       (if (null command)
+           ;; Handle inactive strings specially--allow any number
+           ;; of identical ones.
+           (setcdr menu (cons (list nil name) (cdr menu)))
+         (if name 
+             (define-key menu (vector (intern name)) (cons name command)))))
       (setq menu-items (cdr menu-items)))
     menu))